home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 012a / remctl52.zip / HOST-QM.HST < prev    next >
Text File  |  1987-12-03  |  4KB  |  161 lines
  1. ;QMODEM HOST SCRIPT - Parameter Setup Module
  2.  
  3. Setup_Start:
  4.    Clrscr
  5.    Note Qmodem HOST SCRIPT                 [ Parameter Setup ]
  6.    Note ________________________________________________________________
  7.    Note
  8.    Displayln " PROCESSING MODES AVAILABLE:"
  9.    Displayln " "
  10.    Displayln "     1.) Unprotected System - No Passwords "
  11.    Displayln "     2.) Protected System - Passwords Used "
  12.    Displayln "     3.) Secure System - Call Back System  "
  13.    DisplayLn "     4.) LOCAL Testing by SYSOP "
  14.    Displayln " "
  15.    Display   "    Number Selected ==> "
  16.    Inkey 0 1
  17.    Colorfg 15
  18.    Displayln "$0"
  19.    Colorfg 14
  20.       If '$0' = '1'   Unprotected
  21.       If '$0' = '2'   Protected
  22.       If '$0' = '3'   Call_Back
  23.       If '$0' = '4'   Local_Only
  24.       Goto Setup_Start
  25.  
  26. Call_Back:
  27.    Assign PWORDS "Y"
  28.    Assign STATUS "CALLBACK"
  29.    Assign PWORD1 " "
  30.    Assign PWORD2 " "
  31.    Note
  32.    Write   "  Enter the CALLBACK PASSWORD [8 Characters max.] > "
  33.    Colorfg 15    ;bright white
  34.    Get CALLBAK 8
  35.    Colorfg 14    ;yellow
  36.    Note
  37.    Writeln "  Enter the CALLBACK phone number and prefixes"
  38.    Write   "  e.g.  9,987-3274   > "
  39.    Colorfg 15    ;bright white
  40.    Get CALL_BK_NO 25
  41.    Colorfg 14    ;yellow
  42.    Goto Chat_Check
  43.  
  44. Protected:
  45.    Assign PWORDS "Y"
  46.    Assign STATUS " "
  47.    Note
  48.    Write  "  Enter 1st Password [8 Characters max.] > "
  49.    Colorfg 15    ;bright white
  50.    Get PWORD1 8
  51.    Colorfg 14    ;yellow
  52.    Write  "  Enter 2nd Password [8 Characters max.] > "
  53.    Colorfg 15    ;bright white
  54.    Get PWORD2 8
  55.    Colorfg 14    ;yellow
  56.    Note
  57.    Write  "  Enter the SYSOP's Password [8 Characters max.] > "
  58.    Colorfg 15    ;bright white
  59.    Get SYSOPPW 8
  60.    Colorfg 14    ;yellow
  61.    Goto Chat_Check
  62.  
  63. Chat_Check:
  64.    Note
  65.    Display  "  Will Chat Mode be made available? [ Y/N ] > "
  66.    Inkey 2
  67.    Colorfg 15    ;bright white
  68.    Displayln "$2"
  69.    Colorfg 14    ;yellow
  70.    Goto Modem_Select
  71.  
  72. Modem_Select:
  73.    Note
  74.    Display  "  Modem in Use: [ 1 ] Hayes 2400   [ 2 ] USR HST 9600 > "
  75.    Inkey 3
  76.    Colorfg 15    ;bright white
  77.    Displayln "$3"
  78.    Colorfg 14    ;yellow
  79.    Clrscr
  80.    Colorfg 15    ;bright white
  81.    Goto Summary_Display
  82.  
  83. Summary_Display:
  84.    Note         Summary Information
  85.    Note         -------------------
  86.    Colorfg 14    ;yellow
  87.    Note
  88.    If "$PWORDS" <> "Y"        No_Pswds 
  89.    If "$STATUS" = "CALLBACK"  Call_Stat
  90.    Note   The Password(s) are set to:  $PWORD1  -and-  $PWORD2
  91.    Note
  92.    Note   The SYSOP's Password is set to:  $SYSOPPW
  93.    Note
  94.    Goto Chat_Status
  95.  
  96. Call_Stat:
  97.    Note   The HOST is in CALLBACK MODE
  98.    Note
  99.    Note       The Key PASSWORD is [ $CALLBAK ] and the PHONE NO.
  100.    Note       to call is [ $CALL_BK_NO ]
  101.    Note
  102.    Goto Chat_Status
  103.  
  104. No_Pswds:
  105.    Note   No Passwords are in effect for this session.
  106.    Note
  107.  
  108. Chat_Status:
  109.    If "$2"= "Y"  Yes_Chat
  110.    Note   Chat Mode will NOT be Active.
  111.    Goto Modem_Status
  112.  
  113. Yes_Chat:
  114.    Note   Chat Mode will be ACTIVE.
  115.  
  116. Modem_Status:
  117.    Note
  118.    If "$3" = "1" HAYES_
  119.    If "$3" = "2" USR_HST_
  120.    Goto Unknown_Modem_
  121.  
  122. Hayes_:
  123.    Note   A Hayes Smartmodem 2400 is in use.
  124.    Goto Continue_1
  125.  
  126. USR_HST_:
  127.    Note   A USRobotics Courier HST modem is in use.
  128.    Goto Continue_1
  129.  
  130. Unknown_Modem_:
  131.    Note   An UNKNOWN Modem brand is in use.
  132.    Note   Using the Hayes as the default.
  133.  
  134. Continue_1:
  135.    Note
  136.    Colorfg 12
  137.    Display "     ARE ALL VALUES CORRECT?  Y/N > "
  138.    Inkey 5
  139.    Colorfg 15
  140.    Displayln "$5"
  141.    Colorfg 14
  142.    If "$5" = "Y"  All_Done
  143.    Goto Setup_Start
  144.  
  145. All_Done:
  146.    Return
  147.  
  148. Unprotected:
  149.    Assign PWORDS "N"
  150.    Assign STATUS " "
  151.    Assign PWORD1 " "
  152.    Assign PWORD2 " "
  153.    Goto Chat_Check
  154.  
  155. Local_Only:
  156.    Assign STATUS "LOCAL"
  157.    Assign PWORDS "N"
  158.    Assign PWORD1 "LOCAL"
  159.    Assign 2 "N"
  160.    Return
  161.